类 类 火炎 类 类 类 类 类 类 类 类 类 类 类 类 类 类 类 头头 类 类 类 类 类 关头 类 类 类 类 头头 类 头头 类 关头 关 类 


4 Manual Catalog 和 
类 类 类 涛 类 类 头 涛 涛 头 涛 头 涛 类 头头 涛 类 关头 头 关头 关头 头 类 头头 关头 类 头头 关 类 关头 头头 头头 


REPORT zdemo alv3. 
TYPE-POOLS slis. 


TYPES : BEGIN OF ty _ekko, 
ebeln TYPE ebeln ， 
lifnr TYPE elifn, 
aedat TYPE erdat, 
END OF ty_ekko. 


TYPES ty t ekko TYPE TABLE OF ty ekko. 


类 类 类 类 类 关头 类 类 关头 关头 类 类 类 类 关头 类 头头 炒 头头 


3 Constants * 
头 涛 类 关头 头头 头头 冰冰 关头 关 头头 头 涛 头头 类 关头 头头 


CONSTANTS c check TYPE c VALUE 'X.'. 


DATA : it ekko TYPE ty t ekko, 
it fieldcat TYPE slis t fieldcat alv， 
wa fieldcat TYPE slis fieldcat alv， 
v_lifnr TYPE lifnr. 


类 火炎 类 类 类 头头 类 类 类 类 头头 类 类 类 类 类 类 头头 类 类 类 


这 Selection-options * 
类 火炎 类 类 类 关头 冰 头头 关头 关头 关头 头 类 炎炎 类 头头 火 


SELECT-OPTIONS s lifnr FORYV_lifnr DEFAULT 1000 TO 1010. 


类 类 类 类 类 类 头头 类 关头 类 类 类 类 类 头头 类 类 类 头头 类 类 头头 类 头头 类 类 


START-OF-SELECTION. * 


类 类 类 类 类 类 头头 类 头头 类 类 关头 类 关 头头 头 类 头头 类 类 类 类 头头 头头 炒 


START-OF-SELECTION. 


SELECT ebeln lifnr aedat INTO TABLE it ekko FROM ekko W 


HERE lifnr in s_lifnr. 


类 类 火炎 类 关头 关 类 类 类 类 头头 类 类 类 类 头头 类 关头 类 类 头头 头头 头头 类 


END-OF-SELECTION. 区 


类 火炎 火炎 类 类 类 类 关头 类 类 类 类 类 关头 头头 类 头头 类 类 头头 类 头头 类 火 


END-OF-SELECTION. 


CLEAR wa fieldcat. 
wa fieldcat-fieldname = 'LIFNR.. 
wa fieldcat-col pos = 1. 
wa fieldcat-seltext_ m = 'Vendor No. 
wa fieldcat-key = C_check. 
wa fre/ldcat-do _ sum = c¢ check. 
APPEND wa fieldcat to it fieldcat. 


CLEAR wa fieldcat. 
wa fieldcat-fieldname = 'EBELN.. 
wa fieldcat-col pos = 2. 
wa fieldcat-seltext _m = 'Po. No.'. 


APPEND wa fieldcat to it fieldcat. 


CLEAR wa fieldcat. 

wa fieldcat-fieldname = 'AEDAT.. 

wa fieldcat-col pos = 3. 

wa fieldcat-seltext_m = 'Cret. Date.'. 
APPEND wa fieldcat to it fieldcat. 


类 火炎 火炎 类 头头 类 关头 头头 类 头 类 类 头头 关 类 头头 类 类 头头 关 头头 炒 关 头头 类 


* REUSE ALV GRID DISPIAY * 


类 类 火炎 类 类 头头 类 关头 类 类 关头 类 类 类 类 头头 头头 类 类 类 类 类 头头 头头 头头 关 


CALL FUNCTION 'REUSE ALV _ GRID_ DISPLAY' 
EXPORTING 
IT_FIELDCAT = it fieldcat 
TABLES 
t outtab = it ekko. 


